supplied-by
\ Add C-ADDR2 U2 to end of buffer C-ADDR U and return remaining space.
: suffix ( c-addr u  c-addr2 u2 -- c-addr u' )
	2over swap >r  2dup u> abort" buffer overflow"
	over - r> swap chars +  swap dup >r chars move  r> - ;
